home *** CD-ROM | disk | FTP | other *** search
- // $Id: listview.cc 1.4 1998/01/13 20:01:07 dlorre Exp dlorre $
- #include <exec/lists.h>
- #include <exec/libraries.h>
- #include <libraries/gadtools.h>
-
- #include "gadgets/listview.h"
- #include "gadgetlist.h"
- #include "slist.h"
- #include <proto/exec.h>
- #include <proto/gadtools.h>
- #include <clib/alib_protos.h>
-
- // ========================================================================
- // ========================== LIST CLASS =================================
- // ========================================================================
-
- listview::listview(gadgetlist *gl,
- void (window::*func)(gadget *, unsigned long, unsigned short),
- const char *title,
- unsigned long place,
- nlist *liste,
- unsigned short top,
- unsigned short sel,
- short readonly,
- unsigned short swidth,
- Gadget *showsel) : gadget(gl, func)
- {
- BOOL badinit = FALSE ;
- nlink_iter it(liste) ;
-
- underkey(title) ;
- count = 0 ;
- l = new List ;
- if (l) {
- NewList(l) ;
- while ((sl = it++) && !badinit) {
- if (n = new Node) {
- n->ln_Name = sl->label ;
- AddTail(l, n) ;
- count++ ;
- }
- else
- badinit = TRUE ;
- }
- if (badinit) {
- n = l->lh_Head ;
- while (n->ln_Succ) {
- c = n->ln_Succ ;
- Remove(n) ;
- delete n ;
- n = c ;
- }
- delete l ;
- l = NULL ;
- }
- }
- if (l) {
- if (sel != ~0) cursel = sel ; else cursel = -1 ;
- curtop = top ;
- gl->ng->ng_Flags = place ;
- gl->ng->ng_GadgetText = (UBYTE *)title ;
- gad = gl->gad = CreateGadget(LISTVIEW_KIND, gl->gad, gl->ng,
- GTLV_Labels, l,
- GTLV_Top, top,
- GTLV_MakeVisible, top,
- GTLV_Selected, sel,
- GTLV_ReadOnly, readonly,
- GTLV_ScrollWidth, swidth,
- GTLV_ShowSelected, showsel,
- GT_Underscore, '_',
- TAG_END) ;
- }
- }
-
- listview::~listview()
- {
- if (l) {
- n = l->lh_Head ;
- while (n->ln_Succ) {
- c = n->ln_Succ ;
- Remove(n) ;
- delete n ;
- n = c ;
- }
- delete l ;
- l = NULL ;
- }
- }
-
- void listview::set(unsigned short top, unsigned short sel)
- {
- if (top != -1) curtop = top ;
- cursel = sel ;
- GT_SetGadgetAttrs(gad, w, NULL,
- GTLV_Top, curtop,
- GTLV_MakeVisible, curtop,
- GTLV_Selected, cursel,
- TAG_DONE) ;
- }
-
- void listview::reset(nlist *liste, unsigned short top, unsigned short sel)
- {
- BOOL badinit = FALSE ;
- nlink_iter it(liste) ;
-
- count = 0 ;
- GT_SetGadgetAttrs(gad, w, NULL,
- GTLV_Labels, ~0,
- TAG_DONE) ;
- if (l) {
- n = l->lh_Head ;
- while (n->ln_Succ) {
- c = n->ln_Succ ;
- Remove(n) ;
- delete n ;
- n = c ;
- }
- delete l ;
- l = NULL ;
- }
- l = new List ;
- if (l) {
- NewList(l) ;
- while ((sl = it++) && !badinit) {
- if (n = new Node) {
- n->ln_Name = sl->label ;
- AddTail(l, n) ;
- count++ ;
- }
- else
- badinit = TRUE ;
- }
- if (badinit) {
- n = l->lh_Head ;
- while (n->ln_Succ) {
- c = n->ln_Succ ;
- Remove(n) ;
- delete n ;
- n = c ;
- }
- delete l ;
- l = NULL ;
- }
- }
- if (l) {
- if (top != -1) curtop = top ;
- if (sel != ~0) cursel = sel ; else cursel = -1 ;
- GT_SetGadgetAttrs(gad, w, NULL,
- GTLV_Labels, l,
- GTLV_Top, top,
- GTLV_MakeVisible, top,
- GTLV_Selected, sel,
- TAG_DONE) ;
- }
- }
-
-
-
- void listview::keystroke(BOOL shifted)
- {
- if (shifted) {
- if (cursel)
- cursel-- ;
- }
- else {
- if (cursel < count-1)
- cursel++ ;
- }
- if (GadToolsBase->lib_Version >= 39) {
- GT_GetGadgetAttrs(gad, w, NULL,
- GTLV_Top, &curtop,
- TAG_DONE) ;
- }
- set(curtop, cursel) ;
- gadget::action(NULL, cursel) ;
- }
- void listview::action(unsigned long classe, unsigned short code)
- {
- cursel = code ;
- gadget::action(classe, code) ;
- }
-